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AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 
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PPPPPPPP AAAAAA SSSSSSSS UU UU NN NN LL 000000 CCCCCCCC OCKK 4 

PPPPPPPP AAAAAA SSSSSSSS UU UU NN NN LL 000000 cccccccc «KK KK 

PP PP AA AA SS UU UU NN NN LL 00 oo cc KK KK 

PP PP AA AA SS UU UU NN NN LL 00 oo CC KK KK 

PP PP AA AA SS UU UU NNNN NN LL 00 oo CC KK KK 

PP PP AA AA SS UU UU NN NN LL 00 oo cc KK KK 

PPPPPPPP AR AA SSSSSS UU UU NN NN NN LL 00 oo CC KKKKKK 

PPPPPPPP Aa AR SSSSSS UU UU NN NN NN LL 00 oo cc KKKKKK 

PP AAAAAAAAAA SS UU UU NN NNNN LL 00 oo CC KK KK 

PP AAAAAAAAAA SS UU UU NN NNNN LL 00 oo cc KK KK 

PP AA Ad SS UU UU NN NN LL 00 oo CC KK KK cess 
PP AA AA SS UU UU NN NN LL 00 oo CC KK FK eee 
PP AA AA SSSSSSSS UUUUUUUUUU NN NN LLLLLLLLLL 000000 cCCCCCCCC SCKK KK sees 

PP AA AA SSSSSSSS UUUUUUUUUU NN NN LLLLLLLLLL 000000 CCCCCCCC CKK KK sees 

LL 111111 SSSSSSSS 
LL HII] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL II SS 
LL I] SSSSSS 
LL II SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS | 
LLELLLLLLLL HII! SSSSSSSS 
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| PASSUNLOCK UNLOCK procedure beso -Sep-1984 0 11:26 VAX-11 BLi 1iteze v4.0 Page 1. 
14-Sep-1984 12:51: CPASRTL.SRCJPASUNLOCK. 5 2:1 (1) 
MODULE PASSUNLOCK ( %TITLE "UNLOCK procedure’ 
DENT = '}=001' ' File: PASUNLOCK.B32 Edit: $BL1001 


BEGIN 


LR REAR R ERE ERE EAE REE EEE ERATE EET EEA EEE 


it COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


!® THIS SOFTWARE 44 FURNISHED UNDER A ,tcapee te MAY BE USED AND Sr bt 
THE TERMS C 


et 
© 
*® 
® 
e 
® 
i OTIC NSOFTWARE OR “ANY. OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
® 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. * 
*® 
* 
® 
*® 
* 
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ITY FOR THE USE OR _ RELIABILITY OF ITS 


:® DIGITAL ASSUMES NO RESPONSIBILITY 
IS NOT SUPPLIED BY DIGITAL. 
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7 FACILITY: Pascal Language Support 


ABSTRACT: 


This module contains PASSUNLOCK, which implements the 
VAX-11 Pascal UNLOCK procedure. 


i ENVIRONMENT: User mode - AST reentrant | 
AUTHOR: Steven B. Lionel, CREATION DATE: 29-January-1982 | 
{| MODIFIED BY: 

_1-001 - Original. SBL 29-January-1982 


BBE EAM ipoponononononor 
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F A 
PASSUNLOCK UNLOCK procedure 19-3 ep 4 : AX-11 Bliss-32 V4. 
1880 Seclaretiens 14-Sep 71382 6: ‘88 PASRTL. BR C PASUNLOrK B82; 71 


1 
; 48 047 1 XSBTTL ‘Declarations’ 
; 6449 bts 1! 
3 “9 49 1 ! PROLOGUE DEFINITIONS: 
3) oy 1: 
: 58 G08 : REQUIRE 'RTLIN:PASPROLOG'; ! Externals, linkages, PSECTs, structures 
ae >. 0117 1! 
3 56 0118 1 ! TABLE OF CONTENTS: 
3 57 0119 1! 
3 58 120 1 
; 121 1 FORWARD ROUTINE 
H 60 1 ¢ 1 PASSUNLOCK: NOVALUE; ' Do a UNLOCK 
s; 6) 01 1 
3 6¢ 01246 1! 
§ 6 812 1 ! MACROS: 
; 664 0126 1! 
; 65 0127 1! NONE 
; 66 0128 1! 
; 67 0129 1 ! EQUATED SYMBOLS: 
;s 6&8 0130 1! 
; @& 0131 1! NONE 
; 70 bi 36 1! 
: 71 013 1 ! FIELDS: 
3 72 0134 1! 
: 73 0135 1! NONE 
;. ~ 0136 1! 
; 75 0137 1 ! OWN STORAGE: 
3 76 0138 1! 
: 77 0139 1! NONE 


-—————-—-_—- : ee 
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PASSUMLOCE UNLOCK procedure 18-Sep-1984 92:11:96 AX-11 Oh ieee te V4.0-74 
1-001 PASSUNLOCK = UNLOCK procedure 14-Sep-1984 12:51: PASRTL.SRCJPASUNLOCK.B32;1 

79 140 1 ZSBTTL ‘PASSUNLOCK = UNLOCK procedure’ 

80 14 GLOBAL ROUTINE P Ephetoee ( 

81 PFV: REF SPASSPFV_FILE_VARIABLE, ! File variable 

es RROR ! Unwind address if error 

+ ): NOVALUE = 

5 +4 

iy ' FUNCTIONAL DESCRIPTION: 

88 PASSUNLOCK implements the VAX=-11 Pascal UNLOCK procedure. It 

4 unlocks the current file component. 

4 CALLING SEQUENCE: 

4 CALL PASSUNLOCK (PFV.mr.r C, ERROR.j.rJ) 

95 FORMAL PARAMETERS: 

97 PFYV - The Pascal File Variable (PFV) passed a reference. 

+ The structure of the PFV is defined in PASPFV.REQ. 


ERROR - Optional. If specified, the address to unwind to 
if an error occurs. 


i IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
i ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
NONE 
SIGNALLED ERRORS: 
FILNOTOPE - File not open 


FILNOTINS - File is not in Inspection mode 
ERRDURTRU = Error during UNLOC 


Be Se Se Se Se Oe Oe Se Oe Oe Se Oe Oe BH Se Se BH Se Se Se Se Se Se Se Oe Se Oe Oe Oe Se ee Oe Oe Se os 
oO 
io 


BEGIN 


LOCAL 
FCB: REF SPASS$FCB_CONTROL_BLOCK, ' File Control Block 
PFV_ADDR: VOLATILE, ' Enable argument 
UNWIND_ACT: VOLATILE, ' Enable argument 
ERROR_ADDR: VOLATILE; ! Enable argument 
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OOOO OO OW 00000900909 0 INI NN NIN NSN NAA AAAAAAA AIAN & BBP PPE 


AU FWN 9 CONOVER $0 OD NOAUES WIN $9 ODNAUE WN 0 OODNAUE AR OOWONOUE WI 
PROMOPOMONONNONY — tt OS Ss SS Sh Ss SS SS SS es 


mt td od od a ss 3 2 a 


H 7 
PASSUNLOCK CK procedure 16-Sep-1984 02:11: AX-11 Bliss-32 V4.0-74 
1-004 UNLOCK = UNLOCK procedure 14 ety fi 05:11:88 PASRTL SRE IPASUNLOCK. B42: 1 
BIND 
RAB = FCB: REF BLOCK C, BYTE); ' RMS RAB 


BUILTIN 
ACTUALCOUNT; 


ENAB 


aera 


LE 

PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); 

IF ACTUALCOUNT () GEQU 2 

ERROR_ADDR = .ERROR; ! Set unwind address 


PFV_ADDR = PFV CPFVSR_PFV]; 
' 


14 
Validate and lock PFV 


PASSSVALIDATE_PFV (PFV CPFVSR_PFV]; FCB); 
1+ 

Set unwind action to unlock file. 
UNWIND_ACT = PASS$K_UNWIND_UNLOCK; 


'¢ 
Open file if it should be implicitly opened. 


LO 

$$ 

97 

98 

99 

4 

4 

08 

04 

8? 

OF 

08 

09 

10 + 

V Set PFV address enable argument. 

13 : 

14 

15 

16 

17 

18 

19 

$ 

i 

24 

25 

26 

27 

28 

$3 

IF NOT .PFV CPFV$V_VALID] 
PASSSOPEN_IMPLICIT (PFV CPFVSR_PFV], FCB CFCBSR_FCB); FCB); 

1+ 

Verify that the file is open. 

a a -PFV CPFV$V_OPEN] 
SPASSIO_ERROR (PAS$_FILNOTOPE,0); 


'¢ 
Verify that the file is in Inspection mode. 


09 09 09 08 SI NINN SIN NS SIA AAA AAAAA AMM SB BEEP LEE E 


IF NOT .FCB CFCBSV_INSPECTIONJ 
$PAS$IO_ERROR (PAS$_FILNOTINS,O); 


200090000 


'¢ 
' Do the SRELEASE to unlock the current component. 


3 } 
3; 3 
3 7 
pe 
* 1 
3 3 
wp 
3 ¥ 
3 
a 
3; 1 
Oo 1 
As 
7 
ie. 
s 
gta 
3 3 
= 
3; 1 
cis 
; 7% 
3 7 
ee 
: 4 
s- 3 
; ¥ 
BS 
i 
3; 
; % 
4 
ee 
3 7 
co 
 y 
; 
; 3 
mF 
3 7 
Ue 
_ 
, y 
; 6(Y 
3 1 
9 
3 4% 
, 1 
3 
3; 3 
, 1% 
; 
ee 
Ss 
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7 
PASSUNLOCK ihese -1984 02:11: AX-11 Bliss-32 V Pa 
1-00 ASSUNLBEK = - UNLOCK procedure 127808- 138 95234588 PASRTL.SRC PASUNLOCK B92; 37 we 
be 
al SPASSRMS_OP (SRELEASE (RAB=.RAB)) 
BEGIN 
i * SRELEASE failed. Determine if the error was ‘'record not locked'’. 
! If so, ignore the error. 


IF .RAB CRABSL_STS] NEQU RMS$_RNL 


RIS SS SS SS OOOO OOOO OD ODODD = 
SOMNANE WW ODMR NEAR WW SOO ae 
OOOO EWN OODNENEWVSOOBNIUE KO 


RIPIPIPIPNPININININININININININININI NINN 2 A A OO Oe 


6 . SPASS$IO_ERROR (PAS$_ERRDURUNL) ; ! Error during UNLOCK 
0 . 
0 '¢ 
0 i Cancel previous LOCATE 
0 i Indicate successful operation 
5 i. Unlock the file 
0 
0 FCB CFCBSL_STATUS) = 0; 
0 FCB CFCB$V_LOCATE) = 0; 
9 é PFV CPFV$V_LOCK] = 0; 
9 é RETURN; 
0281 1 END; ! End of routine PASSUNLOCK 
«TITLE PASS$UNLOCK UNLOCK procedure 
IDENT \1-001\ 
-EXTRN PASS$UNLOCK, PAS$$IO_HANDLER 
-EXTRN PASSSVALIDATE_PFV 
~EXTRN PASSSOPEN IMPCIC tr 
.EXTRN PASS$SSIGNAL PASSK _F ILNOTOPE 
-EXTRN PAS$K_FILNO 
~EXTRN SY SSRELEASE, PASSK _ERRDURUNL 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 
00CC 00000 -ENTRY PASS$UNLOCK, Save R2,R3,R6,R7 $ 
53 00000000G 00 PE BROS ety PASSSSIGNAL, R3 3 
5E ° C2 0000 SUBL #8, SP ] 
E bf 9000¢ CLRL ERROR _ADDR 3 
04 AE 7C OQOOOE CLROQ UNWINB_ACT 3 
6D 007D CF ODE 3001) MOVAL &8$, (FP) : 
02 6c 91 0016 CMPB (AP), #2 : 
04 1F 0001 BLSSU. 1 ; 
6E 08 aC DO 00018 MOVL ERROR, ERROR_ADDR : 
08 AE 56 D0 900 ; MOVL R6, PFV_ADDR ; 
000000006 00 if} 00 JSB PASSSVACIDATE_PFV ; 
04 AE , 6 900 D MOVL #1, UNW ; 
06 06 A6 £8 00031 BLBS 6(R6) : 
000000006 00 16 00035 JSB PAS$SSOPEN_IMPLICIT ; 


PASSUNLOCK 
1-001 


; Routine Size: 


UNLOCK procedur 


€ 
PASSUNLOCK = UNLOCK procedure 


181 bytes, 


2 
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2 
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08 0 


OA F 


000000006 


0001825 


000181A 


om 
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A 
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nam 


A6 
7E 
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7 
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7E 
000000006 00 


1 
1 !<BLF/PAGE> 


Routine Base: 


Fs EO a8 2 

E pi 8 4 

00G 8F 9A 8 
4 11 0004 

EO 0004 

E ny Bae 

006 Be A 0004 
2 FB 0005 

04 0005 

57 0D 0005 

01 4 005 

28 E8 0006 

Di 0006 

04 i 0006 

FF A? EB 0006 
50 €8 0007 

08 A? 01 0007 
08 13 0007 

00G 8F 9A 0007 
01 FB 0008 

04 0008 

D4 =A? 04 0008 
01 8A 0008 

80 8F 8A 0008 
04 0009 

0000 0009 

08 AC 00 0009 
04 AO 00 0009 
F4 AO YF 0009C 
F8 AO YF OO09F 
FC AQ 9F QOOA2 
03 0D OO0AS 

5E DD O00A7 

04 AC 7D QO0A9 
05 FB QQOAD 

04 B4 


PASSCODE + 0000 


ote 13:51:88 


BBS 
CLRL 
oa 


AX=-11 Bliss-32 V4.0 "as 
PASRTL.SRC PASUNLOCK. B52;1 


W5 « 7(R6), 3$ 
#PASSK_FILNOTOPE, -(SP) 
#3, -3(FCB), 5$ 
-(§P) 

gPAssK FILNOTINS, =(SP) 
#2, PASSS$SIGNAL 

SYS$RE EASE 

TA $ 
Tatus: #98906 
FC 
TA 


= 
© 


B), 5$ 
Tus, 7$ 

‘ CB), #98720 

HPASSK ERRDURUNL, <(SP) 
, PAS$SSSIGNAL 

a4 (FcB) 
-2(F CB) 

+138, 7(R6) 


Save nothing 
B(A RO 
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SP 
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#3, PASSS10. HANDLER 
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coset faee 00:22. 
Lines/CPU Min: $3 
Lexemes/CPU-Min: 15838 
"Y Used: 87 pages 
Compilation Complete 
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PASSUNLOCK UNLOCK procedure 16-Sep-1984 AX-11 Bliss-32 v4.0- Page 7. 

1-001 PAS ONL Ck = UNLOCK procedure 14-Sep 71984 95:3) ‘88 PASRTL.SRC PASUNLOCK. B32: 31 . (4). 

3 285 0388 } END ! End of module PASSUNLOCK ; 

i 226 6 0 ELUDOM ; 
| : 
Ee 

; PSECT SUMMARY | : 

; Name Bytes Attributes | 

; {PASSCODE 181 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | 3 
was: 

3 Library Statistics ; 

ee Che eae oe ae Syabelg cooceees Pages Processing 3 

: File Total Loaded Percent Mapped Time : 

: _$255$DUA28: : ESYSLIBISTARLET L32;1 9776 ? 0 581 00:01.0 : 

3 ~$255$DUA28:CPASRTL.OBJJPASLIB.L32;1 427 93 21 33 00:00.4 : 
: 
| : 

; COMMAND QUALIFIERS 

; BLISS/CHECK= (FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L1S$:PASUNLOCK/0BJ=0B$ : PASUNLOCK MSRC$:PASUNLOCK/UPDATE=(ENH$: PASUNLOCK 

ag | 181 code + 0 data bytes 
00:0 

| 
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